
'--BEGIN: Swap a Caption(header)
On Error Resume Next
header.Caption ="Here is the new caption"
'--END: Swap a Caption(header)
